home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue25 / compress / COMPRESS.ZIP / BLOBDEMO.DFM / BLOBDEMO.txt
Encoding:
Text File  |  1997-07-09  |  1.6 KB  |  83 lines
  1. object Form1: TForm1
  2.   Left = 264
  3.   Top = 143
  4.   Width = 330
  5.   Height = 274
  6.   Caption = 'Compressed Blob I/O Demo'
  7.   Font.Color = clWindowText
  8.   Font.Height = -16
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   ShowHint = True
  12.   OnCreate = FormCreate
  13.   OnDestroy = FormDestroy
  14.   PixelsPerInch = 120
  15.   TextHeight = 20
  16.   object Label1: TLabel
  17.     Left = 10
  18.     Top = 6
  19.     Width = 303
  20.     Height = 25
  21.     Caption = '(See source before trying to run this!)'
  22.   end
  23.   object DBGrid1: TDBGrid
  24.     Left = 11
  25.     Top = 78
  26.     Width = 295
  27.     Height = 150
  28.     Columns = <
  29.       item
  30.         FieldName = 'Name'
  31.       end>
  32.     DataSource = DataSource1
  33.     TabOrder = 0
  34.     TitleFont.Color = clWindowText
  35.     TitleFont.Height = -16
  36.     TitleFont.Name = 'System'
  37.     TitleFont.Style = []
  38.   end
  39.   object SaveArray: TButton
  40.     Left = 10
  41.     Top = 33
  42.     Width = 111
  43.     Height = 41
  44.     Hint = 'Compresses a 4000-integer array into a new record'
  45.     Caption = 'Save Array'
  46.     TabOrder = 1
  47.     OnClick = SaveArrayClick
  48.   end
  49.   object LoadArray: TButton
  50.     Left = 198
  51.     Top = 33
  52.     Width = 111
  53.     Height = 41
  54.     Hint = 'Reads the integer array back from the record'
  55.     Caption = 'Load Array'
  56.     TabOrder = 2
  57.     OnClick = LoadArrayClick
  58.   end
  59.   object Table1: TTable
  60.     DatabaseName = 'DBDEMOS'
  61.     TableName = 'BLOB.DB'
  62.     Left = 246
  63.     Top = 94
  64.     object Table1Name: TStringField
  65.       FieldName = 'Name'
  66.       Size = 10
  67.     end
  68.   end
  69.   object DataSource1: TDataSource
  70.     DataSet = Table1
  71.     Left = 246
  72.     Top = 126
  73.   end
  74.   object Compress1: TCompress
  75.     RegNumber = 0
  76.     MakeDirectories = False
  77.     ExceptionOnFileError = False
  78.     Key = 0
  79.     Left = 245
  80.     Top = 63
  81.   end
  82. end
  83.